home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group01b.txt / 000109_icon-group-sender_Mon Jul 30 07:59:10 2001.msg < prev    next >
Internet Message Format  |  2002-01-03  |  3KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.11.1/8.11.1) id f6UEx4E15268
  4.     for icon-group-addresses; Mon, 30 Jul 2001 07:59:04 -0700 (MST)
  5. Message-Id: <200107301459.f6UEx4E15268@baskerville.CS.Arizona.EDU>
  6. From: "Lloyd M. Uhler, Jr." <luhler@cyberramp.net>
  7. X-Newsgroups: comp.lang.icon
  8. Subject: VIB TextBox input
  9. Date: Fri, 27 Jul 2001 21:50:49 -0500
  10. X-Orig-Message-ID: <3B622889.F5215748@cyberramp.net>
  11. Abuse-Reports-To: abuse at airmail.net to report improper postings
  12. NNTP-Proxy-Relay: library1-aux.airnews.net
  13. NNTP-Posting-Time: Sat Jul 28 09:51:58 2001
  14. X-Accept-Language: en,pdf
  15. To: icon-group@cs.arizona.edu
  16. Errors-To: icon-group-errors@cs.arizona.edu
  17. Status: RO
  18. Content-Length: 2023
  19.  
  20. VIB TextBox input did not work in ICON Version 9.3.1? Has anyone tried
  21. to enter text in a TextBox generated from VIB in Version 9.3.2 od ICON?
  22.  
  23. I would like to confirm it was fixed or not fixed? Type generated code
  24. would be:
  25.  
  26.  
  27. ############################################################################
  28.  
  29. #
  30. # File:     C:\WINICON\PGMS\text.icn
  31. #
  32. # Subject:  Program to test TextBox input
  33. #
  34. # Author:
  35. #
  36. # Date:     June 23, 2001
  37. #
  38. ############################################################################
  39.  
  40. #
  41. #
  42. #
  43. ############################################################################
  44.  
  45. #
  46. #  Requires:
  47. #
  48. ############################################################################
  49.  
  50. #
  51. #  Links: vsetup
  52. #
  53. ############################################################################
  54.  
  55. #  This vib interface specification is a working program that responds
  56. #  to vidget events by printing messages.  Use a text editor to replace
  57. #  this skeletal program with your own code.  Retain the vib section at
  58. #  the end and use vib to make any changes to the interface.
  59.  
  60. link vsetup
  61.  
  62. procedure main(args)
  63.    local vidgets, root, paused
  64.  
  65.    (WOpen ! ui_atts()) | stop("can't open window")
  66.    vidgets := ui()    # set up vidgets
  67.    root := vidgets["root"]
  68.  
  69.    paused := 1     # flag no work to do
  70.    repeat {
  71.       # handle any events that are available, or
  72.       # wait for events if there is no other work to do
  73.       while (*Pending() > 0) | \paused do {
  74.          ProcessEvent(root, QuitCheck)
  75.          }
  76.       # if <paused> is set null, code can be added here
  77.       # to perform useful work between checks for input
  78.       }
  79. end
  80.  
  81. procedure text_input_cb1(vidget, value)
  82.    return
  83. end
  84.  
  85. #===<<vib:begin>>=== modify using vib; do not remove this marker line
  86. procedure ui_atts()
  87.    return ["size=600,385", "bg=#C0C0C0"]
  88. end
  89.  
  90. procedure ui(win, cbk)
  91. return vsetup(win, cbk,
  92.    [":Sizer:::0,0,600,385:",],
  93.    ["text_input1:Text::18:138,86,203,16:Text:\\=",text_input_cb1],
  94.    )
  95. end
  96. #===<<vib:end>>=== end of section maintained by vib
  97.  
  98.  
  99.